home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.0 / background_14090.txt < prev    next >
Text File  |  1989-02-26  |  5KB  |  266 lines
  1. -- background: 14090 from stack: in.0
  2. -- bmap block id: 12403
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Buttons
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  9. end opencard
  10.  
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: 2000
  16. -- rect: left=456 top=301 right=329 bottom=493
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 11645 / 11645
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Return
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   if the optionkey is down then
  28.     pass mouseup
  29.   end if
  30.  
  31.   visual effect iris close
  32.   go first card
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 3 (button)
  38. -- low flags: 00
  39. -- high flags: 2000
  40. -- rect: left=228 top=306 right=331 bottom=255
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 1014 / 1014
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Prev
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   if the optionkey is down then
  52.     pass mouseup
  53.   end if
  54.  
  55.   visual effect wipe right
  56.   go to previous card
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 4 (button)
  62. -- low flags: 00
  63. -- high flags: 2000
  64. -- rect: left=280 top=306 right=331 bottom=307
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 1013 / 1013
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Next
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   if the optionkey is down then
  76.     pass mouseup
  77.   end if
  78.  
  79.   visual effect wipe left
  80.   go to next card
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 5 (field)
  86. -- low flags: 01
  87. -- high flags: 0000
  88. -- rect: left=255 top=311 right=327 bottom=282
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 3
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: PageNumber
  97.  
  98.  
  99. -- part 6 (button)
  100. -- low flags: 00
  101. -- high flags: 2004
  102. -- rect: left=2 top=74 right=117 bottom=49
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 14767 / 14767
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: About...
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   if the optionkey is down then
  114.     pass mouseup
  115.   end if
  116.  
  117.   visual iris open to gray
  118.   visual iris close to black
  119.   visual iris open to gray
  120.   visual iris close
  121.   go background information
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 7 (button)
  127. -- low flags: 00
  128. -- high flags: 2004
  129. -- rect: left=2 top=119 right=162 bottom=49
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 29114 / 29114
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Back
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   if the optionkey is down then
  141.     pass mouseup
  142.   end if
  143.  
  144.   visual barn door close to black
  145.   visual barn door open
  146.   go back
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 8 (button)
  152. -- low flags: 00
  153. -- high flags: 2004
  154. -- rect: left=2 top=164 right=207 bottom=49
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 1011 / 1011
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Home
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   if the optionkey is down then
  166.     pass mouseup
  167.   end if
  168.  
  169.   go home
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 9 (button)
  175. -- low flags: 00
  176. -- high flags: 2004
  177. -- rect: left=2 top=209 right=252 bottom=49
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 1000 / 1000
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Open Stack
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   if the optionkey is down then
  189.     pass mouseup
  190.   end if
  191.  
  192.   domenu "open stack..."
  193. end mouseUp
  194.  
  195.  
  196.  
  197. -- part 10 (button)
  198. -- low flags: 00
  199. -- high flags: 2004
  200. -- rect: left=2 top=254 right=297 bottom=49
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 17343 / 17343
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: Launch Application
  209. ----- HyperTalk script -----
  210. on mouseUp
  211.   if the optionkey is down then
  212.     pass mouseup
  213.   end if
  214.  
  215.   visual venetian blinds to gray
  216.   visual venetian blinds to black
  217.   visual venetian blinds to gray
  218.   visual venetian blinds
  219.  
  220.   go to background "Mini Hyperstation"
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 11 (button)
  226. -- low flags: 00
  227. -- high flags: 2004
  228. -- rect: left=2 top=299 right=342 bottom=49
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 21786 / 21786
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: Menus On
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   if the optionkey is down then
  240.     pass mouseup
  241.   end if
  242.  
  243.   If the short name of the target is "Menus On" then
  244.     set the name of the target to "Menus Off"
  245.     show menubar
  246.   else
  247.     set the name of the target to "Menus On"
  248.     hide menubar
  249.   end if
  250. end mouseUp
  251.  
  252.  
  253.  
  254. -- part 12 (field)
  255. -- low flags: 01
  256. -- high flags: 0000
  257. -- rect: left=108 top=31 right=65 bottom=336
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 0
  261. -- font id: 3
  262. -- text size: 24
  263. -- style flags: 0
  264. -- line height: 32
  265. -- part name: Name
  266.